set scheme s2color

* Figure A8(a)

local nocolumns 10
local nocolumns_m1 = `nocolumns'-1
clear
local new = _N + 1
set obs `new'
gen year = 0
expand `nocolumns_m1'
gen variable = _n+1
tempfile temp0
save `temp0.dta', replace

insheet using "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\table_figureA8.txt", tab clear
drop if _n<=85
drop if _n>16
forval i = 2/`nocolumns'{
	replace v`i' = subinstr(v`i',"*","",.)
	replace v`i' = subinstr(v`i',"(","",.)
	replace v`i' = subinstr(v`i',")","",.)
}
destring v2-v`nocolumns', replace
keep v1-v4
gen coefficient = (v1!="")
carryforward v1, replace
tempfile temp1
save `temp1.dta', replace

keep if coefficient==1
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v coefficient
tempfile temp2
save `temp2.dta', replace

use `temp1.dta', clear
keep if coefficient==0
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v stderr
merge 1:1 time variable using `temp2.dta', nogen
gen lb = coefficient - 1.96*stderr
gen ub = coefficient + 1.96*stderr

gen year = .
forval i = 1/4{
	replace year = -`i' if time =="m`i'"
	replace year = `i' if time =="p`i'"
}
append using `temp0.dta'
replace coefficient = 0 if year==0
replace lb = 0 if year==0
replace ub = 0 if year==0

drop if year==-4 | year==4

replace year = year - 0.125
gen nudge = year + 0.125
gen nudge2 = year + 0.25

sort variable year
graph twoway (scatter coefficient year if variable==2, msymbol(circle) mcolor(navy)) (line coefficient year if variable==2, lcolor(navy) lwidth(medthick)) (rcap ub lb year if variable==2, lcolor(navy) lwidth(medthick)) (scatter coefficient nudge if variable==3, msymbol(diamond) mcolor(cranberry) ) (line coefficient nudge if variable==3, lcolor(cranberry) lpattern(longdash) lwidth(medthick)) (rcap ub lb nudge if variable==3, lcolor(cranberry) lwidth(medthick)) (scatter coefficient nudge2 if variable==4, msymbol(triangle) mcolor(dkorange)) (line coefficient nudge2 if variable==4, lcolor(dkorange) lpattern(dash) lwidth(medthick)) (rcap ub lb nudge2 if variable==4, lcolor(dkorange) lwidth(medthick)), graphregion(color(white)) xline(0,lwidth(5) lcolor(gs14) lstyle(solid)) ytitle("Coefficient estimate" "", size(large)) xtitle("Year relative to merger", size(large))  ylabel(-0.1(0.05)0.15, labsize(large) gmax gmin) xlabel(-3 "-3" -2 "-2" -1 "-1" 0 "0" 1 "+1" 2 "+2" 3 "+3", labsize(large)) legend(order(1 "Documents{superscript:X,p90}" 4 "Time{superscript:X,p90} " 7 "Cost{superscript:X,p90} ") size(large) pos(6) row(1) region(lcolor(black))) title("Baseline" " ", size(vlarge) color(black))
graph export "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\figure_A8a.pdf", replace mag(100)

********************************************************************************

* Figure A8(b)

local nocolumns 10
local nocolumns_m1 = `nocolumns'-1
clear
local new = _N + 1
set obs `new'
gen year = 0
expand `nocolumns_m1'
gen variable = _n+1
tempfile temp0
save `temp0.dta', replace

insheet using "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\table_figureA8.txt", tab clear
drop if _n<=19
drop if _n>16
forval i = 2/`nocolumns'{
	replace v`i' = subinstr(v`i',"*","",.)
	replace v`i' = subinstr(v`i',"(","",.)
	replace v`i' = subinstr(v`i',")","",.)
}
destring v2-v`nocolumns', replace
keep v1 v8 v9 v10
gen coefficient = (v1!="")
carryforward v1, replace
tempfile temp1
save `temp1.dta', replace

keep if coefficient==1
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v coefficient
tempfile temp2
save `temp2.dta', replace

use `temp1.dta', clear
keep if coefficient==0
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v stderr
merge 1:1 time variable using `temp2.dta', nogen
gen lb = coefficient - 1.96*stderr
gen ub = coefficient + 1.96*stderr

gen year = .
forval i = 1/4{
	replace year = -`i' if time =="M`i'Xa"
	replace year = `i' if time =="P`i'Xa"
}
append using `temp0.dta'
replace coefficient = 0 if year==0
replace lb = 0 if year==0
replace ub = 0 if year==0

drop if year==-4 | year==4

replace year = year - 0.125
gen nudge = year + 0.125
gen nudge2 = year + 0.25

sort variable year
graph twoway (scatter coefficient year if variable==8, msymbol(circle) mcolor(navy)) (line coefficient year if variable==8, lcolor(navy) lwidth(medthick)) (rcap ub lb year if variable==8, lcolor(navy) lwidth(medthick)) (scatter coefficient nudge if variable==9, msymbol(diamond) mcolor(cranberry))  (line coefficient nudge if variable==9, lcolor(cranberry) lpattern(longdash) lwidth(medthick) ) (rcap ub lb nudge if variable==9, lcolor(cranberry) lwidth(medthick) ) (scatter coefficient nudge2 if variable==10, msymbol(triangle) mcolor(dkorange)) (line coefficient nudge2 if variable==10, lcolor(dkorange) lpattern(dash) lwidth(medthick)) (rcap ub lb nudge2 if variable==10, lcolor(dkorange) lwidth(medthick)), graphregion(color(white)) xline(0,lwidth(5) lcolor(gs14) lstyle(solid)) ytitle("Coefficient estimate" "", size(large)) xtitle("Year relative to merger", size(large))  ylabel(-0.2(0.1)0.3, labsize(large) gmax gmin) xlabel(-3 "-3" -2 "-2" -1 "-1" 0 "0" 1 "+1" 2 "+2" 3 "+3", labsize(large)) legend(order(1 "Documents{superscript:X,p90}" 4 "Time{superscript:X,p90}" 7 "Cost{superscript:X,p90}") size(large) pos(6) row(1) region(lcolor(black))) title("Synthetic merger control group" " ", size(vlarge) color(black))
graph export "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\figure_A8b.pdf", replace mag(100)

********************************************************************************

* Figure A8(c)

local nocolumns 10
local nocolumns_m1 = `nocolumns'-1
clear
local new = _N + 1
set obs `new'
gen year = 0
expand `nocolumns_m1'
gen variable = _n+1
tempfile temp0
save `temp0.dta', replace

insheet using "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\table_figureA8.txt", tab clear
drop if _n<=101
drop if _n>14
forval i = 2/`nocolumns'{
	replace v`i' = subinstr(v`i',"*","",.)
	replace v`i' = subinstr(v`i',"(","",.)
	replace v`i' = subinstr(v`i',")","",.)
}
destring v2-v`nocolumns', replace
keep v1 v5 v6 v7
gen coefficient = (v1!="")
carryforward v1, replace
tempfile temp1
save `temp1.dta', replace

keep if coefficient==1
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v coefficient
tempfile temp2
save `temp2.dta', replace

use `temp1.dta', clear
keep if coefficient==0
rename v1 time
reshape long v, i(time) j(variable)
drop coefficient
rename v stderr
merge 1:1 time variable using `temp2.dta', nogen
gen lb = coefficient - 1.96*stderr
gen ub = coefficient + 1.96*stderr

gen year = .
forval i = 0/2{
	replace year = `i'+1 if time =="tau`i'"
}
forval i = 1/4{
	replace year = -(`i')+1 if time =="pre`i'"
}
append using `temp0.dta'

drop if year==-4 | year==4

replace year = year - 0.125
gen nudge = year + 0.125
gen nudge2 = year + 0.25

sort variable year
graph twoway (scatter coefficient year if variable==5, msymbol(circle) mcolor(navy)) (line coefficient year if variable==5, lcolor(navy) lwidth(medthick)) (rcap ub lb year if variable==5, lcolor(navy) lwidth(medthick)) (scatter coefficient nudge if variable==6, msymbol(diamond) mcolor(cranberry))  (line coefficient nudge if variable==6, lcolor(cranberry) lpattern(longdash) lwidth(medthick) ) (rcap ub lb nudge if variable==6, lcolor(cranberry) lwidth(medthick) ) (scatter coefficient nudge2 if variable==7, msymbol(triangle) mcolor(dkorange)) (line coefficient nudge2 if variable==7, lcolor(dkorange) lpattern(dash) lwidth(medthick)) (rcap ub lb nudge2 if variable==7, lcolor(dkorange) lwidth(medthick)), graphregion(color(white)) xline(0,lwidth(5) lcolor(gs14) lstyle(solid)) ytitle("Coefficient estimate" "", size(large)) xtitle("Year relative to merger", size(large))  ylabel(-0.1(0.05)0.15, labsize(large) gmax gmin) xlabel(-3 "-3" -2 "-2" -1 "-1" 0 "0" 1 "+1" 2 "+2" 3 "+3", labsize(large)) legend(order(1 "Documents{superscript:X,p90}" 4 "Time{superscript:X,p90}" 7 "Cost{superscript:X,p90}") size(large) pos(6) row(1) region(lcolor(black))) title("Staggered treatment" " ", size(vlarge) color(black))
graph export "D:\Data\Workdata\703989\FJSJ3989\CIK\replication_restat\output\figure_A8c.pdf", replace mag(100)
